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1. GENERAL DESCRIPTION 


All Cobol S-Language programs have associated with. them, a BASE 
Register and a LIMIT Register. The area between the.BASE and the 
LIMIT is to be used as a data space only. All’ program: code, erennteed 
in segment form is erred at any available,location in» memory. 


The data space include a non-overlayable ar 
COP Table and various other parameters su 
Record Areas. 


Various parameters necessary for the 
object code and maintained by the MC 
Limit Register. 


.A typical cobol program laydiit=4 ito y is as follows: 
BASE REGISTER._ 


| 
‘$-— 1ST ENTRY (COPX=1) 


: ——'€——- DATA SEGMENT ZERO BASE 
‘IAL REGISTERS _| 


ANAME MONITOR ——| 
__ SYMBOLS 


DATA SEGMENT 
ZERO AREA 


eer tnient i Sent SOONER ene Beretta a Saaremaa 


_ RASH C INTERMEDIATE Sy | _ <= 


3 
t 
ANA nl eth ad Pain SO eens 


ease sian deta ceSneteis maths Moducgeisi cat aca eee ke ean, 


Saseeer eee Pome LIMIT 


— ee me —¢ — EXTENDABLE STACK LIMIT 
(BOJ ATTRIBUTE) 


& RUN STRUCTURE 


OVERLAYABLE | 
DATA AREA 
| ee ene eee LIMIT REG. 
REINSTATE INFO | (BOJ ATTRIBUTE) 
| 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL PAGE 2 
‘SYSTEMS M & E GROUP | - COBOL S~LANGUAGE 
SMALL SYSTEMS PLANT PS. #2201 6729 


1.1 | Program Parameters 


below.. The number of bits to contain the parameter 
below the parameter name, 


| BDISPB | Branch displacement 
5 : * 7 
| DSEGZ | 


24 


| STACK-POINTER! 


24 


| STACK-SI1ZE_| 


. 5 ° 


| COP-BASE | 


24 


| COPB | 


try container size 
6 ° 


SEGB segment number container size 
Data displacement container size 


Data length container size 


COP index container size 
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2.0 FORMATS 


Zel S-Instruction Format 


of the individual operators. An couple tae ae euch instruction 
format is illustrated below. : 


2.1.1 S-Operators 


perators are encoded in a 3~bit 
& We If OPl=7, the operator is encoded 
in the next 6 bit ), d as OP2. If OP1<7, OP2 is omitted. 


An argument of 
The first bit of OPND is denoted 
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The length of t 
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2.103 Literal String 


LLGTH1 
BITS a) 


PRESENT IF LLGTH1=0 


_ The literal-type is specifie: -2ebit LTYPE as follows: 


LTYPE = 00 


LLGTH2. If the li 
length is ent ded 


oH address of an entry is calculated by multiplying the value 
COPX by the value "COPB" and then adding the result to the 
base address of the COP Table. 


A COPX value of zero specifies that the COP Table entry is con- 
tained in line in the S-Instruction itself rather than in the 
COP Table. Note: The base address of the COP Table points to 
an unused entry. 
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20165 In-Line COP Information 


A COPX value of zero soeedenes: that the COP Table. 
contained in-line in the S-Instruction eesert rath 


_ COP Table. 


}- SEGB-}- DISPB—!— LENB—++-—— 1 ——~ 


DATA ADDRESS DATA DAT Se _ 
SEG# | DISPL. |.LENGTH | INDEX FLAG ! : 5 


SUBSCRIPT 
.| FACTOR 2 .} 


z > INDEX [ 
SUBSCRIPTS |l: SUB- | 
DEXES SCRIPT 


_Present if number o: 
_ 1° of ‘subscripts>2 

Present if number eRe 

of subscripts >l 

subscript- 


BOUND 


Present if subscript- 
index FLAG=1 


Present if number 
of subscripts >3 


 COPX1, COPX2, or COPX3 may be in-line entries but may not be 
subscripted or indexed. 


A COPX for each index value or subscript (up to 3) must be present. 


Note: A COPX for each subscript value (up to 3) is immediately 
followed by a subscript factor. 
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2.2 Current Operand Table (COP) 


and length plus 4 bits for expressing as 
type and ASCII flag.. 


When the attributes exceed one entr iple entries are 
OT Any reference 
first of its entries. 


|eSEGB>|<DISPB>|<— 1 
DATA ADDRESS 
‘SEG. #| DISPL. 


BITS 1 to ? 1 to 


7 FACTOR 3 


FACTOR 2 


ete FACTOR 1 
LINDEXES | 


SCRIP 
Present if subscrif 
index FLAG=1 


Present if number 
of subscripts>3 


ar ne mein a Nn arta 


Present if number 
of subscripts>2 


Present if number 
of subscripts7l 


“Present if subscript- 
index Flag=1l 
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2.2.1 Segment Number 


the source program.’ 


2.2.2 Displacement 


Displacement is expressed in binary 
displacement of the data from the B 
All data is stored beginning at a 0 


2.2.3 


2.2.4 


2.2.5 


‘ript-Index Flag bit is true to indicate subscripting or 
nd false otherwise. When true the next following 
contain the necessary subscripting - indexing factors. 


When 7 eer ares or indexing is indicated by the subscript-index 


flag, the number of subscripts or indexes required for the variable 
is specified as follows: : 


00 = One 

OL = Two 

10 = Three 

l1 = UNDEFINED 


The bit immediately following this field indicates the appropriate 
operation - indexing or subscripting. 
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2.2./ Subscript Factors | : 


When. subscripting is indicated, 1 to 3 fields of 
taining the binary factor by which each ae 


The factor is the digit displacement bety 
table. The value 1 is subtracted from the’: 
to multiplying by the factor. The subscript 


Lf the subscript value is zero or is'né 
is used and: an error communicate will ® 
result exceeds the table-bound. 


If the binary equivalent of the | 
24 bits, overflow is ignored 
given by table-bound, an 


Note: Literal jdbeer iat. valu 
building a new descr *, 


lue immediately follows the primary 


A subscript variable must not itself 


2.2.8 


The value consists 
decimal digits and is ancl eacd: “The value is converted 
d combined with the binary data address at execution time, 


sum MOE the index value exceeds the table bound then an error 
mnutitcate will be issued, 
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2.2.9 Table Bound aa 


Table bound is a binary value used to specify the limi sine 
for subscripting and indexing. Its container §! } 


2.2.10 ASCII Flag 
The ASCII flag bit of the destination 
execution of certain. code sensitive 


These instructions are; 


CPA 


ADD MVA 
SUB MVS SPA 
INC MVN CPM 
DEC MNZ 

. INCL - 
DECL 
DIV 


t influénce the execution of the 
nstructions in which EBCDIC is assumed: 


The ASCII flag bit d 
following code sensiti 
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a50: INSTRUCTION SET 
' Arithmetic 

Name .. fe - Nmemonic 

Increment : < INC COPX1 

Add e. a0 ADD COPX1, COPX2 
Decrement, 7 DEC COPX1L 
Subtract oe OPND2, COPX1 
Multiply COPX1, COPX2 
Divide OPND2, COPX1 


Increment by one 
Decrement by one 


Data Movement 


Name OP Arguments 
Move Alphanumeric OPND1, COPX1 
Move spaces COPX1 

~ Move numeric OPND1, COPX1 
Move zeros COPX1 


Multiple Mov N, OPNDL, COPX1, ...COPXN 
N, COPX1, ...COPXN 
N, OPNDL, COPX1, ...COPXN 
N, COPXL, ...COPXN 7 
N, COPX1, OPND], OPNDN 
OPND1, COPX1, DADDR 


OPNDL, COPX1. MASK 


OPND1, COPX1, V, SCL | 
M, T, COPX1, OPND1, COPX2 
OPND2 

V, OPND1, COPX1 
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3.0 Instruction Set (Cont'd) 
Branching 
.Name 


Branch on overflow 

Set overflow. ‘ 
Branch Unconditionally 
Perform Enter 
Perform Exit 

Enter 

Exit’ 

Go to Depending 

Altered Go to Paragraph 
Alter 


Name 


Compare Alphanumeric 
Compare Numeric | 
Compare for zeros. 
Compare for Spaces 


Compare for Clas 
Compare Multiple 


Compare R 


avert 
Load Data Segment 


Nmemonic _ OP 


COMPANY CONFIDENTIAL 
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BOF 
OFV 
BUN 
PERF 


COPX1, N, BDISP,...BDISPR 
DADDR 


-DADDR, ACON 
Arguments 
OPND1, COPX1, R, BADDR 
CPN OPND1, COPX1, R, BADDR 
ZRO COPX1, R, BADDR 
SPA COPX1, R, BADDR 
CLASS : COPX1, C, BADDR 
CPM BADDR, COPX1, Rl, OPND1L, 
»«eRn, OPNDn, Rk 
CRPT - OPND1, COPX1,.R, BADDR 
Nmemonic OP Arguments 
COMM COPX1 
FCMP - DADDR 
CNV OPND1, DADDR 


’ LDS DSECN, DADDR 
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3.1 Arithmetic Operands and Instructions 


Arithmetic operands can have any of the following formats: 


1. Unsigned 4-bit 

2. Unsigned 8-bit 

3. Signed 4-bit (sign is MSD) 
4, Signed 68-bit (sign over MSD) 
There is no restriction as to type o mitted in 
an operation. - . 


All fields are addressed by poi 
bit of the most significant uni 
field is the sign. 


e sign position is set to 1100 
o 1101 for a negative result. If 
sign is set to 1100. 

Four-bit operands are: interpreted in units of four bits, When 
a signed operand i 


bat operands are interpreted in units of eight bits, 


ed operand is specified, the sign is interpreted as 


When eight bit units are specified for the receiving field of 
an arithmetic operation, the leftmost four bits of each 8-bit 
unit, except the unit carrying a sign, is set -to 1111 if EBCDIC 
or to OO11 if ASCII. 


The value of an 8-bit unit is carried in the rightmost four 
bits of the unit. Its value is an defined below for the 4-bit 
unit, The leftmost four bits, except for a sign, are ignored. 
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3.1." Cont'd 


follows: 


ter ttettst 


on, when the field length of the 
ther of the operands, the correct 
,it can fit, Results generated when 
1ot sufficient to contain the result 


add, three address subtract and in multi- 
partial overlap of the first two operands is 


address add and subtract total overlap is permitted. 
Results generated when the result field partially overlaps 

the’ first operand field are not specified. Note that total 
overlap implies that the two types of fields is identical. 


No overlap of operands nor result fields are permitted in 
divide. Results generated under any condition of overlap 
are not specified. 
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.3.1,1 Add Three Address | ADD OPNDL, COPX1, COPX2 | 


‘3.1.2 


gel.9 


i3,1.4 


-Bebed 


Algebraically add an addend denoted by OPND1 to 
augend denoted by COPX1 and store the sum in th 
location denoted by COPX2. 


Subtract Three Address | SUB OPNDI, 


augend denoted by COPX1 and 
tion denoted by COPX1, 


Subtract Two Address 
Algebraically subtra 


from a minuend denote 
ference in the lo 


ength is the sum of the lengths of 


the ee and must be denoted by COPX2. 
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3.1.6 . Divide uaa OPND1L DL, OPND2, COPX1 | 


roe denoted by OPND1 and store the quotient’ 3 ¢ 
denoted by COPX1. Store the remainder in the “location 
denoted by OPND2. 


The result field length is the differenc 
of the two operands and must be deno 


greater than the absolute 


If the absolute value of the di 
ing digits of the dividend, the 


value of an equivalent number- of..1. 
result is undefined, 


The devidead Siela.« 
pasteeee 4-bit £ 


oe. 


3.1.7 Increment by One NCL COPX1 


Algebraically de, 
by COPX1 and stor 
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3.2. Data Movement Operands and Instructions 


In general, 
any ‘of the following formats 


can have . 


1. Unsigned 4-bit 

2. Unsigned 8-bdit 

3. Signed 4-bit (sign is MSD) 
4, Signed 8-bit (sign over MSD) 


itted in an opera- 


Any restrictions as to the type of f 
the particular opera- 


tion are specified under the de 
tion. 


See section 3.1 Arithmetic { Instructions for a 


description of the four type 


finber of destination fields 
le) is specified by a 4-bit binary 
‘0000 to 1111 is used to indicate 


For multiple move operati 
(or origin fields when appl 
value N. The value r 
1 to 16 destinations. 


Note that the dest 


delds for a multiple move operation 
need not have,.the s | 


. type nor data length. 


cE overlapped fields are not permitted, unless 
Led by the individual instruction. 


Totally or partial 
specifically speci 
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3.2.1 Move Alphanumeric MVA OPNDI, COPX1 


with the exception of the sign, if aT i oe to the deccineeton 
with 1111 if. EBCDIC or OO11 if SEL: ap] led to the left of 
each 4-bit unit. . 


length, the destination £ fe elied in on the right with 
trailing spaces (0100 000 LE EBCDIC or 0010 0000 if ASCII). 


If the destination Ie _is lesser in size than the source 
Bene ERY: the source. d 


5 are permitted if the destination field 
displaced and is at a higher addressed 
original field. The data type of both fields 
TE can be assumed’ that the source is moved 3 

into the destination field and that the move 
: ght. 


| MVS COPX1L 


DIG or 0010 0000 if ASCII). 


data type of the destination field is ignored and is assumed 
be’ unsigned 8-bit. 


BURROUGHS CORPORATION _ ‘ COMPANY CONFIDENTIAL PAGE 18 
' SYSTEMS M & E GROUP COBOL S-LANGUAGE 
SMALL SYSTEMS PLANT a.38 P.S. #2201 6729 


3.2.3 Move Numeric [MVN OPND1, COPX1 ] 


Move 8-bit or 4-bit units from the origin locatio 
by OPND1 to the destination location denoted by. COPX1L 


If the destination field ts signed, it rec 
sign of the origin if the origin is sig 
origin is unsigned. 


If the destination field is unsign 
is ignored. 


If the data type - of th e 
leftmost four bits of eac 
only the rightmost é 


If the dastinaeion 
length, the destin 
leading zeros of'.ap 
0011 0000 if asc 


on. Akan the original field: The date type of “both fields 
-bes4-bit. It can be assumed that the source is moved 6 
gits at a time into the destination field and that the move is 
eft to right. 


Move Zeros MVZ COPX1 | 


Fill the destination field denoted by COPX1 with zeros of the 
appropriate type (1111 0000 if EBCONG; 0011 0000 if ASCII or 
0000 if 4-bit). 


If the destination field is signed, 1100 is placed into the sign 
position. 
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3.2.6 Multiple Move Spaces [MMVS N, COPX1...COPXD 


Fill each of the N destination field 
spaces. 


3.2.7 


36248 ; 


‘Fill bach of the N d 
zeros of the di ‘2 


3.2.9 


£ the destination length is greater in size than the combined 
source length,. the destination field is filled in on the right 
with trailing spaces (0100 0000 if EBCDIC or 0010 0000 if ASCII.) 


If the destination length is lesser in size than the combined 
source lengths, the source data is truncated on the right. 
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3.2.10 Scaled Move Numeric SMVN_OPND , COPX1, V, SCL } 


3.2.11 


dding the 
nd assuming 


If V=0, perform a Move Numeric operation after. 
scale factor to the field length of the source fiel 
that the added portion of the field are zeros: 


If V=l, perform a Move Numeric operation : 
the scale factor from the field length of 


All rules specified for Move Numeri 
ment by the scale factor, 


The container size for the scal 
tainer size for the length of a 


If v=0, the translati 
is EBCDIC to ASCII. 


asc to EBCDIC., If V=l, the translation 


The data type of th 
are assumed t. 


If the destinat ot 
destination field 
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3.2.12 


Examine EXA MT, COPX1, OPND1, COPX2, OPND2 | 


“Examine the operand defined by COPX1, tallying 


to be tallied and or replaced is specif 


specified by COPX2. 


and/or replacing a variable number of 8-bit 
characters. The particular 8-bit characte’ 


by OPND1. The character to be used as ‘t 
replacement character is specified by OPND: 
The field into which the tally is stored is 


The type of operation is specified 
parameter T=T TTT, 


Tt, 00 undefined 
- Ol Tally T, T, 
specified oye 


10 Replace TT 


O111 and 1111 not specified 
s are undefined. 


e ND2 argument is not present when T,T, = Ol. 


rgument is not present when T,T, = 10. 


type of the examined operand is 
unsigned 8-bit. 


of the examining operand defined 
y OPND1 must be unsigned. Its length is 
assumed to be one. When 4-bit format is specified, 
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the operand is assumed to have the 4-bits 111l if EBCDIC or 


0010 if ASCII appended to the left. 
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3.2.12 Con't. 


position replaced is set to the 4 bits 1111 if EBCDIC or 0011 
if ASCII and the rightmost 4 bits receiv Ae 
replacing source. When 8-bit format is : 
position replaced receives all 8 bits from 


PX2 is assumed 
o be five. 


Only the right- 


The parameter M=0 denotes numeric™4! : 
nm comparing. The left- 


most 4 bits of a character .are..u 


The parameter M=t denotes 
of a character are used in 
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3. 2. 13. Edit Instructions and Edit Micro-Operators 


et 


No restrictions are placed on the data type of the rce field 
of an Edit operation. 


operation 


The data type of the destination field of an 
must be Unsigned 8-bit. 


If the destination length is greater in size 
length, the source data is assumed to,have le 
on the left. te 


n the source 
ng zero fill 


han the source 
left. 


If the destination length is lesser in 
length, the source data is trunc 


The operation is terminated by 
by exhaustion of either the so 


micro-operator and not 
or'destination fields. 


3.2.13.1 Edit [EDT OPND1, COPx1 


destination locatic 
the micro-operator 


zero base. The container size of DADDR 


Ol: 8-bit Length of the Present if LLGTH1L=0 
unsigned micro-operator 
string in 8-bit 
units. If length exceeds 7 units, the length 
“is encoded in LLGTH2 with LLGTH1 = 0 
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3.2.13.3 Edit Micro-Operators 


The edit micro-operators used in an edit instru 


OPERATOR MNEMONTC 
0000 R 
0001 R 
0010 R 
OO11 R 
0100 N 
0101 T ert Unconditionally 
0110 T Insert on Minus 
. 0111 T . : ert Suppress 
1000 T Insert Float 
1001 T End Float Mode 
1010 0000 End Non-Zero . 
1010 0001 | = «End of Mask — 
1010 0010 Start Zero Suppress 
1010 OO11 |  *#&- Complement Check Protect 
Others 


Undefined 


a 4-bit binary value used to skip over a number 
ion 8-bit units. The value 0000 represents no 


indicates a 4-bit binary value which is 1) used to index 
to a table of editing constants or 2) used to indicate a 
ditional selection between two table constants or 3) used 
to indicate an editing constant in line with the edit-operator 
string. The next edit-operator follows the constant. 


The following table indicates the normal table editing constants 
as well as the conditional and unconditional selection of con- 
stants associated with the value "T", 
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3.2.13.3 (Cont'd.) 


EDITING CONSTANTS 


T TABLE ENTRY MNEMONIC 
EBCDIC 


0000 i 

OOOL wow 

0010. tent 

0011 ue 

0100 hom 

0101 mgm 

0110 nor 

0111 et : 

1000 Either Entry 0 or l 


Either Entry 7 or 1 
In-Line 8-bit Constant 


. Initially 
re assumed to 


reset as specified b he description of the 
individual .mi Gts. The "s" toggle 

n ource field sign is 
otherwise. Unsigned fields 


ending che: zero suppress state. 
propriate unit (4-bit digit or 8-bit 
acter) from the source field to the destination 
». If a 4-bit unit is moved, append the 
bits’1111 to the left before storing in the 
estination. If an 8-bit unit is moved, the 

4-bits 1111 are substituted for the leftmost 

bits of the 8-bit unit. 


Move Character 


Set "Z" to "1" ending the zero suppress state. 

Move an appropriate unit (4-bit digit or 8-bit 
character) from the source field to the destination 
field. If a 4-bit unit is moved, append the 

4 bits 1111 to the left before storing in the 


destination. If an 8-bit unit is moved, it is 
‘moved unchanged. ; 
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 Bedeto (Con't.) 


Move Suppress 


The micro- operation move digit is performed 
if the 4-bit unit or the rightmost 4 bits 
of the 8-bit unit of the source field i 
equal to 0000. 


If the appuepetats 4 bits of the so 
unit is equal to 0000, the suppress t 
"Z" is inspected. If "Z" equals "1" 
non-suppress mode, the micro-opé 
digit is performed. If the sup 
equals "0", the check protec 
inspected, If "P'" = "0" indi 
protect mode, move the table 
‘the 8-bit code for blank’ 
field. If P=1l, move the table 
the 8-bit code for 
field. 


airy containing 
=the destination 


. : digit 

2=1 Source digit 

=0 P=0 Source =" Move Table Entry 7 (blank) 
Move Table Entry 2 (asterisk) 


: indicating non-check protect 

@ the table entry containing the 8-bit 
ank to the destination field. If 
move table entry containing the 

for asterisk to the destination 


Summary 


0 Move Table Entry 7 (blank) 
P 1 Move Table Entry 2 (asterisk) 


Skip Reverse Destination 


Adjust the address pointer of the destination 
field to skip backward (lower address) Bes bb 
8-bit units. 
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3.2.13 (cont'd.) 


Insert Unconditionally 


Move the table entry "T" as indicated. below to 


=the destination 


field. : , 
T=0.007 . Move Table Entry T 
S=0 T=8 Move Table 
S=l1 T=8 Move Table 
S=0 T=9 Move Table 
S=1 T=9 Move Table 
T=10 Move in-l 


Insert on Minus 


Move the table entry "T" as ind: 


field. 
_ $=l : ae 
s=0 7 (Blank) 
S=0 2 (Asterisk) 
- §=0 0 (Plus) 
S=1 1 (Minus) 
S=1 7 (Blank) 
S=1 1 (Minus) 
S=1 in-line Table Entry 


Move Table Entry 
Move Table Entry 
Move Table Entry . 


T 

7 (Blank) 

2 (Asterisk) 
Move Table Entry O (Plus) 

1 

7 

1 


T=8 
T=8 Move Table Entry 1 (Minus) 
T=9 Move Table Entry 7 (Blank) 
T=9 Move Table Entry 1 (Minus) 
T=1 


0 . Move in-line Table Entry 
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:-3.2.13 (Con't.) 
, Insert Float 


Move the table entry "T" and/or perform the 
micro-operation move digit as indicated be] 


Z=1 a Move digit 

Z=0 Source =0 P=0 Move table e 

_ Z=0 Source =0 P=1 Move table e 

Z=0 Source #0 T=0...7 Move table én move digit 

.Z=0 Source 40 T=8 S=0 Move table 0 (plus)then move digit. 
Z=0 Source #0 T=8 S=1 Move -1(minus)then move digit. 
Z=0 Source #0 T=9 S=Q Move ntry 7{blank)then move digit. 
Z=0 Source #0 T=9 S=1 1(minus)then move digit. 
Z=0 Source #0 T=10 ble entry,then move digit. 


- 


End Float Mode 


' Move the table entry !'T". dicated below to 


entry T 
entry l 
entry 0 
entry 1 
entry 7 


aan eee ae 
MOOd0d000 


N 
Hl 


o source character/digit is moved; 
* continue with the next in-line operator. 


‘erminate the micro-operator operaticns. 


Start Zero Suppress 


Set "Z" to the zero state. 


“Complement check protect 


Complement the state of "P", 
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3.3.1 


3.3.2 
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3.3 Branching Operands and Instructions 


A branch address argument "BADDR" can be any one” 
as specified below. Restrictions as to type for 
instruction are specified in the description-of 
instruction. 


BADDR has the following format: 


BITS — ce BDISPB) for type 10, 11 


specified for type 00, Ol 


00: Relative inning his byte in a positive direction. 
Ol: Relative : this byte in a negative direction. 
10: Relative Segment Base (inter segment branch). 
ll: Relative 


Displacement is a 
placement of an élative to itself or to a segment base. 
The container size of tt splacement is fixed (to be specified) 
for type 00 and:01 and is.a program parameter (BDISPB) for type 10 
and 11. 


[BON BADDR 1 
truction from the location specified by BADDR. 
BOF V BADDR 


low toggle = V, a transfer to the address (BADDR) given 
truction occurs. Control is passed to the next sequential 


Set Overflow-Toggle OFL VI. 


Set the overflow toggle to V. 


Note: The overflow toggle is set to 1 when divide by zero is 
encountered. 
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3.3.5 


3.3.6 


3.3.7 


SYSTEMS M & E GROUP COBOL S-LANGUAGE 
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‘3.3.4 Perform Enter | PERF K, BADDR 


Format a stack entry with the following format 


BITS 8 2. 7 


Obtain the 8-bit value K and the 2-bi 
instruction and insert it into the s 


If the BTYPE inserted is 10, ins the ‘current segment. 


number into the stack. 


the active base and 
ction into the stack. 


Insert a displacement value re. 
pointing to the next sequentia 


Adjust the stack pointer (STKPTR) to”point to the next possible 


entry. 


Obtain the next instru rom the location specified by BADDR. 


Compare the 8-t alue*K: with the K in the current stack entry 
and if unequal proc 


he removed stack entry. 


NER BADDR 


ion’as "PERF". K is assumed equal to 0. 


me function as "PXIT". K is assumed equal to 0. 
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Ny. 


3.3.8 Go To Depending GTD COPX1, 


COPX1. 


oF ' The variable is first converted to a sits va 
24, : . 


If the binary value of the variable is less ‘tl 
than N, the next instruction is obtained from the location speci- 
fied by BDISPO. Note that the variab 


is used as an index to select fror 
priate BDISP to be used to o 


ecifies the bit displace- 
current segment base. The 


BDISP is a unsigned binary va’ 
ment of an instruction relati 


3.3.9 


an unsigned binary value which specifies 
“of the "ACON" relative to the Data Segment 


3.3.10 


See section 3.3.9 for definition of DADDR and ACON. 


ro 
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3.4 Conditional Branch Operands and Instructions 


feds, a not ae greater or at 
being tested, If the relation condition 
to the address (BADDR) given in the ins ( 
Control is passed to the next sequential inst 
wise. The relation (R) is defined 


000 Undefined 


001 GTR 
010 LSS 
O11 NEQ 
100 EQL 
101 GEQ 
110 LEQ 


- Lil Undefined 


No overlap of field: 


ermitted. Results generated under 
any condition o 


not specified. 


(3.4.1 Compare Alphanumeri 


Id’sizes are different and the equal size portions 
» the longer field is tested for trailing blanks 


ae blanks. 


hat. field, which has the left most character that is greater 
less) than the corresponding character in the second field, is 
considered the larger (smaller). 


Unsigned 8-bit data format is assumed with no checking to verify 
that the data types are both unsigned 8-bit. 
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3.4.2 Compare Numeric [CPN OPNDL, COPXl, R, BADDR 


Compare the two operands fields according to thei: algebraic 
value considering the two fields to be comprised..of 


integers. 


When the field sizes are different, the, 
leading zeros (0000). : 
type. 
4 bits of the Garces are consid 
ignored. 


Two fields of all zeros are eq 


3.4.3 Compare for Zeros 


ction as to data type. In comparing an 8-bit 


ther bits are ignored. In comparing signed, 
sign position is ignored. : 


[SPA COPX2, R, BADDR ] 


operand fields according to their binary value 
g the second field to be comprised of all spaces 
0100 0000 if EBCDIC or 0011 0000 if ASCII). 


3.4.4 for SPACES 


Unsigned 8-bit format is assumed with no checking to verify 
otherwise. 
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3.4.5 © Compare for Class | CLASS COPX], C, BADDR | 


G=00 completely alphabetic 
01 completely numeric 
10 not completely alphabetic 
11 not completely numeric 


If the condition being tested is tru 
address BADDR given in the instructio 
control is passed to the next sequent 


isfer to the 
“urs. Otherwise 
nstruction. 


ter Ts range~checked 
001 through 
and for 0100 0000 


In the alphabetic test, each, char 
for 1100 0001 through 1100: 10¢ 
1101 1001, 1110 0010 th : 


*haractér is range-checked for 1111 0000 
rit is range-checked for 

ign in‘the sign position for signed 

he coutcome of a numeric test. 


In the numeric test, eac 
through 1111 1001 and eac 
0000 through 1001. 
data will not affec 
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a 


CPM BADDR, COPX2, RI, OPNDI...R_, OPND_,Rk 


3.4.6 Compare Multiple 


Compare the first operand field with each of 
operand fields under control of the varian 
first bit of the relation (Ri) associat 
operand OPNDi. . 


enoted by the 
the specific 


(The relation (R) is a four bit field which is defined as follows: 


OXXX compare alphanumeric 
\XXX compare numeric 


Pe) 
i"! 


XXX = 000 QUIT 
001 GTR 
010 LSS 
O11 NEQ 
100 EQL’ 
101 GEQ 
110 LEQ 
111 undefin 


el low the same rules as the 
LPHANUMERIC OR COMPARE NUMERIC. 


The individual 
‘appropriate COMPAR] 


The instructio terminated when: 


3.4.7 


mpare the two operand fields according to their binary due 
omparison proceeds from left to right. 

e field lengths are considered equal by repeating OPNDL. 

Both fielis are assumed to have unsiewen 8-bit data type. 

The sisarct OPND1 must be greater than 2 and must divide evenly 


into the size of COPX1. Otherwise, the results of the compare 
may be erroneous. 
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3.5 Miscellaneous Instruction pat esse 

(3.5.1 Communicate COMM COPX1 
Move the length and address fields from entry to the RS 
COMMUNICATE MSG PTR field located in th RS NUCLEUS con- 
verting then enroute.. The origin field is anged, 
The length is converted from a dig racter length to a bit 
length. The address is converted fron | 
Relative Address to the Base Registe 

3.5.2 . Fetch FCMP DADDR 


ed by OPND1 from a decimal value to an 
value truncating or zero filling on the 


Lt "at the location specified by DADDR. See section 
nition of DADDR. 


ontainer size of DSEGN is SEGB. 


ADDR is an unsigned binary value which specifies a digit dis- 
placement from the Data Segment Zero Base. 


The container’ size of DADDR is DISPB. 


